Index: openacs-4/packages/project-manager/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/install-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	26 May 2005 10:09:59 -0000	1.4
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	26 May 2005 10:12:21 -0000	1.5
@@ -180,7 +180,7 @@
     if { $object_type != "person" } {
 	upvar create_project_p create_project_p
 
-	if {$create_project_p == "t"} {
+	if {[exists_and_not_null create_project_p] && $create_project_p == "t"} {
 	    db_1row organisation_data {
 		select o.name, ao.creation_user, ao.creation_ip
 		from organizations o, acs_objects ao