Index: openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl,v
diff -u -r1.4 -r1.4.10.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl	10 Jan 2007 21:22:03 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl	17 Oct 2013 08:56:37 -0000	1.4.10.1
@@ -80,7 +80,7 @@
                 -folder_id $first_folder_id \
                 -content_type "image" \
 
-            set tmp_filename "[acs_root_dir]/packages/acs-content-repository/tcl/test/test-image-1.jpg"
+            set tmp_filename "$::acs::rootdir/packages/acs-content-repository/tcl/test/test-image-1.jpg"
             set image_item_id_orig [db_nextval  "acs_object_id_seq"]
             set image_name [ns_mktemp "XXXXXX"]
             set image_item_id [image::new \