Index: openacs-4/packages/dotlrn/www/weblog-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/weblog-new.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/weblog-new.tcl	28 Jun 2018 11:54:02 -0000	1.9
+++ openacs-4/packages/dotlrn/www/weblog-new.tcl	28 Jun 2018 12:07:49 -0000	1.10
@@ -34,7 +34,7 @@
 if {![llength $existing_forum_ids]} {
     #No existing weblog lets make them one.
 
-    set user_name [person::name -user_id $user_id]
+    set user_name [person::name -person_id $user_id]
     set name "[_ dotlrn.lt_Web_Log_for_user_name]"
     set charter "[_ dotlrn.Public_Web_Log]"
     set presentation_type "weblog"