Index: openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/extlink-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl	27 Feb 2005 20:05:58 -0000	1.8
+++ openacs-4/packages/acs-content-repository/tcl/extlink-procs.tcl	10 Jan 2007 21:22:03 -0000	1.9
@@ -36,7 +36,7 @@
     set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
 
-    if {[empty_string_p $package_id]} {
+    if {$package_id eq ""} {
 	set package_id [ad_conn package_id]
     }