Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.7.2.7 -r1.7.2.8
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	15 Apr 2005 17:00:42 -0000	1.7.2.7
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	21 Apr 2005 10:11:01 -0000	1.7.2.8
@@ -71,18 +71,14 @@
 
     @see content::symlink::new content::extlink::new content::folder::new
 } {
-    if {![info exists creation_user]} {
+    if {[empty_string_p $creation_user]} {
 	set creation_user [ad_conn user_id]
     }
 
-    if {![info exists creation_ip]} {
+    if {[empty_string_p $creation_ip]} {
 	set creation_ip [ad_conn peeraddr]
     }
 
-    if {![exists_and_not_null content_type]} {
-	set content_type [::content::item::content_type -item_id $item_id]
-    }
-
     set var_list [list]
     lappend var_list \
         [list name $name] \