Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	12 Mar 2004 13:44:43 -0000	1.6
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	25 Mar 2004 18:36:05 -0000	1.6.2.1
@@ -708,7 +708,7 @@
     # if ongoing_p is t, then end_date_j should be null
     db_1row project_info { }
 
-    if {[string equal $ongoing_p t] && ![empty_string_p end_date_j]} {
+    if {[string equal $ongoing_p t] && ![empty_string_p $end_date_j]} {
         ns_log Error "Project cannot be ongoing and have a non-null end-date"
         set end_date_j ""
     }
@@ -940,7 +940,7 @@
                 # has precedence. However, sometimes the project is
                 # ongoing, so we have to make sure that there actually
                 # is an end_date_j
-                if {![empty_string_p end_date_j]} {
+                if {![empty_string_p $end_date_j]} {
                     if {$end_date_j < $latest_finish($task_item)} {
                         set latest_finish($task_item) $end_date_j
                     }