                     lessonsMap)]
 
         (doseq [moduleInfo newModInfoSeq]
-          (add-module-lesson-group (:moduleCode moduleInfo)
-                                   (:lessonType moduleInfo)
-                                   (:lessonGroup moduleInfo)
-                                   bgColorCssClass
-                                   true))
+          (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!

            (update-ModulesSelected-for-affected-days affectedDaysSet)

            ; add the newly selected lesson group
            (add-module-lesson-group moduleCode lessonType destLessonGroup
                                     bgColorCssClass true)

            (update-document-location-hash-with-changed-lesson-group!
              moduleCode lessonType destLessonGroup))))))

                          LESSON-GROUP-CHANGE-KEY
                          (:lessonGroup augModuleSelectedLessonInfo)))))))))

(defn- add-module-lesson-group!
  "Adds a lesson group of a module to the timetable.

   The `isActuallySelected?` param is used to indicate if the current lesson
