--- gforth/wf.fs	2005/01/16 13:29:21	1.32
+++ gforth/wf.fs	2005/01/22 16:39:58	1.33
@@ -289,11 +289,13 @@ Defer parse-line
 
 : link-warn? ( -- ) \ local links only
     link $@ ': scan nip ?EXIT
-    link $@ '# $split 2drop r/o open-file nip IF
-	s" Dead Link '" stderr write-file throw
-	link $@ stderr write-file throw
-	s\" ' !!!\n" stderr write-file throw
-    THEN ;
+    link $@ '# $split 2drop dup IF
+	r/o open-file nip IF
+	    s" Dead Link '" stderr write-file throw
+	    link $@ stderr write-file throw
+	    s\" ' !!!\n" stderr write-file throw
+	THEN
+    ELSE  2drop  THEN ;
 
 : link-options ( addr u -- addr' u' )
     do-size off  do-icon on  do-expand off