Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	13 Apr 2008 16:32:56 -0000	1.42
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	18 Apr 2008 20:47:21 -0000	1.43
@@ -89,7 +89,9 @@
       #set href [export_vars -base [$package_id package_url] \
       #              {{edit-new 1} object_type name title}]
 
-      my render_not_found $new_link [my label]
+      set html [my render_not_found $new_link [my label]]
+      $page lappend __unresolved_references $html
+      return $html
     }
   }
 
@@ -175,7 +177,8 @@
       set return_url [$package_id url]
       set link [$package_id make_link $package_id edit-new object_type \
 		    return_url autoname name title] 
-      my render_not_found $link $label
+      set html [my render_not_found $link $label]
+      return $html
     }
   }
   ::xowiki::Link::image instproc render_found {link label} {
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.230 -r1.231
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	18 Apr 2008 20:25:14 -0000	1.230
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	18 Apr 2008 20:47:21 -0000	1.231
@@ -975,6 +975,7 @@
     regexp {^(..):(.*)$} $name _ lang name
     set references [list]
     set unresolved_references 0
+    my set __unresolved_references [list]
     #my log "--W setting unresolved_references to 0  [info exists unresolved_references]"
     set content [my get_content]
     #my log "--W after content [info exists unresolved_references] [my exists unresolved_references] ?? [info vars]"