Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.104 -r1.105
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2008 10:43:37 -0000	1.104
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2008 17:25:10 -0000	1.105
@@ -1575,7 +1575,7 @@
   }
   image_url instproc pretty_value {v} {
     set entry_name [my entry_name $v]
-    return [my pretty_image -parent_id [$object parent_id] $entry_name]
+    return [my pretty_image -parent_id [[my object] parent_id] $entry_name]
   }
 
   ###########################################################