           (doall
             (flatten
               (map (fn [unselectedLessonGroup]
-                     (add-module-lesson-group moduleCode lessonType
-                                              unselectedLessonGroup
-                                              bgColorCssClass false))
+                     (add-module-lesson-group! moduleCode lessonType
+                                               unselectedLessonGroup
+                                               bgColorCssClass false))
                    unselectedLessonGroups)))]
       (set! Lessons-Created-By-Draggable augmentedTTLessonInfoSeq))))
 

  Lessons-Created-By-Draggable nil)

; Forward declaration
(declare add-module-lesson-group)
(declare timetable-prune-empty-rows)
(declare add-missing-td-elements-replacing-lesson)
(declare remove-lesson-group-html)

                    lessonsMap)]

        (doseq [moduleInfo newModInfoSeq]
          (add-module-lesson-group! (:moduleCode moduleInfo)
                                    (:lessonType moduleInfo)
                                    (:lessonGroup moduleInfo)
                                    bgColorCssClass
                                    true))

        ; Update URL hash with newly added module
        (update-document-location-hash-with-new-module!
