Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	7 Dec 2007 14:25:04 -0000	1.32
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	18 Jan 2008 21:53:50 -0000	1.33
@@ -205,7 +205,8 @@
     }
     
     array set smsg {1 full 0 summary}
-    set flink "<a href='[::xo::cc url]?summary=[expr {!$summary}]$query_parm'>$smsg($summary)</a>"
+    set weblog_href [$package_id package_url][$package_id get_parameter weblog_page]
+    set flink "<a href='$weblog_href?summary=[expr {!$summary}]$query_parm'>$smsg($summary)</a>"
     
     if {$page_number ne ""} {
       set nr [llength [$items children]] 
@@ -214,7 +215,7 @@
       set range [expr {$nr > 1 ? "$from - $to" : $from}]
       
       if {$filter_msg ne ""} {
-        append filter_msg ", $range of $nr_items $entry_label (<a href='[::xo::cc url]'>all</a>, $flink)"
+        append filter_msg ", $range of $nr_items $entry_label (<a href='$weblog_href'>all</a>, $flink)"
       } else {
         append filter_msg "Showing $range of $nr_items $entry_label ($flink)"
       }