Index: openacs-4/packages/simulation/lib/sim-objects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-objects.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simulation/lib/sim-objects.tcl	18 Nov 2003 12:19:38 -0000	1.3
+++ openacs-4/packages/simulation/lib/sim-objects.tcl	18 Nov 2003 13:31:31 -0000	1.4
@@ -98,10 +98,10 @@
 
     switch -glob $mime_type {
         text/* - {} {
-            set view_url [export_vars -base "object/$name"]
+            set view_url [simulation::object::url -name $name]
         }
         default {
-            set view_url [export_vars -base "object-content/$name"]
+            set view_url [simulation::object::content_url -name $name]
         }
     }
 }