--- capa/capa51/GUITools/gradesubjective.tcl	1999/11/23 18:35:12	1.5
+++ capa/capa51/GUITools/gradesubjective.tcl	1999/12/03 18:39:38	1.6
@@ -913,3 +913,13 @@ proc subjViewResponse {} {
     button $buttonFrame.forget -text Dismiss -command "destroy $response"
     pack $buttonFrame.forget -side left
 }
+
+###########################################################
+# subjAddKeyword
+###########################################################
+###########################################################
+###########################################################
+proc subjAddKeyword {} {
+    global gSubj gUniqueNumber
+    
+}