diff --git a/src/modules/Image/mkwmml.pike b/src/modules/Image/mkwmml.pike
index 5320f357f2669cc0ebbf5db42635339a933ea467..041330132046a365a064e77be286eac2f6fe9a22 100644
--- a/src/modules/Image/mkwmml.pike
+++ b/src/modules/Image/mkwmml.pike
@@ -1,4 +1,4 @@
-/* $Id: mkwmml.pike,v 1.2 1997/11/10 13:24:23 mirar Exp $ */
+/* $Id: mkwmml.pike,v 1.3 1997/11/10 13:30:02 mirar Exp $ */
 
 import Stdio;
 import Array;
@@ -186,8 +186,12 @@ string make_nice_reference(string what,string prefix)
    string q;
    if (search(what,".")==-1 &&
        search(what,"->")==-1 &&
-       !parse[what])
+       !parse[what] &&
+       what!=prefix[strlen(prefix)-strlen(what)-2..strlen(prefix)-3] &&
+       what!=prefix[strlen(prefix)-strlen(what)-1..strlen(prefix)-2])
+   {
       q=prefix+what;
+   }
    else 
       q=what;