Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	26 Jan 2006 12:21:11 -0000	1.1
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	26 Jan 2006 13:05:50 -0000	1.2
@@ -38,7 +38,14 @@
   set folder_id [$page set parent_id]
   set pid [db_string get_package_id \
 	       "select package_id from acs_objects where object_id = $folder_id"]
-  return "[site_node::get_url_from_object_id -object_id $pid]pages/[ad_urlencode [$page set title]]"
+  if {$pid > 0} {
+    return "[site_node::get_url_from_object_id -object_id $pid]pages/[ad_urlencode [$page set title]]"
+  } else {
+    # cannot determine package_id; one page from the directory should be viewed to update 
+    # package id for the content folder...
+    return "cannot determine package_id, view a page from the folder containing page \
+	[$page set title]"
+  }
 }