Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	25 Mar 2010 01:02:16 -0000	1.60
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	8 Dec 2012 17:42:32 -0000	1.61
@@ -299,7 +299,7 @@
     } else {
 	set curriculum_bar ""
     }
-    if { [llength [info procs ds_link]] == 1 } {
+    if { [info commands ds_link] ne "" } {
 	set ds_link [ds_link]
     } else {
 	set ds_link ""
@@ -352,7 +352,7 @@
 
     @see  Documentation on the site master template for the proper way to standardize page footers
 } {
-    if { [llength [info procs ds_link]] == 1 } {
+    if { [info commands ds_link] ne "" } {
 	set ds_link [ds_link]
     } else {
 	set ds_link ""