Index: openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl	9 May 2018 15:33:28 -0000	1.4
+++ openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl	3 Sep 2024 15:37:33 -0000	1.5
@@ -1,10 +1,16 @@
-ad_proc -public -deprecated lmap {list proc_name} {
-    Applies proc_name to each item of the list, appending the result of 
-    each call to a new list that is the return value.
-} {
-    set lmap [list]
-    foreach item $list {
-        lappend lmap [safe_eval $proc_name $item]
+#
+# Loading this proc will harm the full installation. It is kept here
+# just as a reference for people migrating from ancient versions.
+#
+if {0} {
+    ad_proc -public -deprecated lmap {list proc_name} {
+        Applies proc_name to each item of the list, appending the result of 
+        each call to a new list that is the return value.
+    } {
+        set lmap [list]
+        foreach item $list {
+            lappend lmap [ad_safe_eval $proc_name $item]
+        }
+        return $lmap
     }
-    return $lmap
 }