diff --git a/ChangeLog b/ChangeLog
index d2adc6352..b8c73a595 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-05  Badlop  <badlop@process-one.net>
+
+	* contrib/extract_translations/extract_translations.erl: Don't
+	report [] to be translated. Identify unusued strings.
+
 2007-12-04  Badlop  <badlop@process-one.net>
 
 	* .gitignore: Removed (EJAB-441)
diff --git a/contrib/extract_translations/extract_translations.erl b/contrib/extract_translations/extract_translations.erl
index 01788c504..bd116b090 100644
--- a/contrib/extract_translations/extract_translations.erl
+++ b/contrib/extract_translations/extract_translations.erl
@@ -49,7 +49,7 @@ process(Dir, File, Used) ->
 	    case Used of
 		unused ->
 		    ets:foldl(fun({Key, _}, _) ->
-				    io:format("~p~n", [Key])
+				      io:format("Unused string: ~p~n", [Key])
 			      end, ok, translations); 
 		_ ->
 		    ok
@@ -122,7 +122,10 @@ process_string(_Dir, File, Str, Used) ->
 		    io:format("~n% ~s~n", [File]),
 		    ets:insert(files, {File})
 	    end,
-	    io:format("{~p, \"\"}.~n", [Str]),
+	    case Str of
+		[] -> ok;
+		_ -> io:format("{~p, \"\"}.~n", [Str])
+	    end,
 	    ets:insert(translations, {Str, ""});
 	_ ->
 	    ok