Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	12 Mar 2008 20:15:53 -0000	1.94
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	13 Feb 2009 22:13:06 -0000	1.95
@@ -729,7 +729,7 @@
         Optionall set up a node mapping on folders too.
     } {
 
-        if {[content_extlink::extlink_p -item_id $object_id]} {
+        if {[content::extlink::is_extlink -item_id $object_id]} {
             item::copy -item_id $object_id -target_folder_id $target_folder_id
         } elseif {[fs::folder_p -object_id $object_id]} {