Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.39.2.12 -r1.39.2.13
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	14 Feb 2023 08:41:10 -0000	1.39.2.12
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	14 Feb 2023 08:47:51 -0000	1.39.2.13
@@ -174,7 +174,7 @@
     @return boolean or the calendar_id according to 'return_id' flag.
 } {
     # Check whether the user is logged in at all
-    if {!$party_id} {
+    if { !$party_id } {
         return -1
     }
 
@@ -184,16 +184,13 @@
         set result [db_string get_calendar_info {} -default 0]
     }
 
-    if { $result ne "0" } {
-
-        if {$return_id eq "1"} {
+    if { $result != 0 } {
+        if { $return_id == 1 } {
             return $result
         } else {
             return 1
         }
-
     } else {
-
         return 0
     }
 }