Index: openacs-4/packages/simulation/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/object-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 14:11:59 -0000	1.10
+++ openacs-4/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 20:12:13 -0000	1.11
@@ -18,6 +18,7 @@
 ad_proc -private simulation::object::url { 
     {-package_id ""}
     {-name:required}
+    {-mime_type ""}
 } {
     The URL for the page displaying contents and name of
     an item.
@@ -29,7 +30,11 @@
         set package_url "[ad_url][apm_package_url_from_id $package_id]"
     }
     
-    return "${package_url}object/${name}"
+    if { [empty_string_p $mime_type] || [string match "text/*" $mime_type] } {
+        return "${package_url}object/${name}"
+    } else {
+        return "${package_url}object-content/${name}"
+    }
 }
 
 ad_proc -private simulation::object::content_url {