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.35 -r1.36
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	7 Aug 2017 23:48:05 -0000	1.35
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	3 Apr 2018 09:21:16 -0000	1.36
@@ -382,12 +382,15 @@
 
 ad_proc -public calendar::get {
     {-calendar_id:required}
-    {-array:required}
+    {-array}
 } {
     Get calendar info
 } {
-    upvar 1 $array row
+    if {[info exists array]} {
+        upvar 1 $array row
+    }
     db_1row select_calendar {} -column_array row
+    return [array get row]
 }