Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	25 Jan 2009 10:49:17 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	26 Jan 2009 20:53:27 -0000	1.19
@@ -151,6 +151,7 @@
     if {$package_id eq ""} {error "package_id must not be empty"}
 
     #my log "--R $package_id exists? [my isobject ::$package_id] url='$url'"
+
     if {![my isobject ::$package_id]} {
       #my log "--R we have to create ::$package_id //url='$url'"
       #
@@ -245,7 +246,7 @@
     if {[my exists url] && [info exists root]} {
       regexp "^${root}(.*)$" $url _ url
     } elseif {![my exists url]} {
-      my log "--R we have no url, use package_url"
+      #my log "--R we have no url, use package_url"
       # if we have no more information, we use the package_url as actual url
       set url $package_url
     }