--- loncom/homework/response.pm	2000/11/23 17:24:39	1.5
+++ loncom/homework/response.pm	2000/11/24 21:49:08	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 
-# 11/23 Gerd Kortemeyer
+# 11/23,11/24 Gerd Kortemeyer
 
 package Apache::response;
 use strict;
@@ -42,7 +42,8 @@ sub start_responseparam {
     if ($token->[2]->{'description'}) {
        $display=' display="'.$token->[2]->{'description'}.'"';
     }
-    return "\n<".$tag.$display.'>'.$token->[2]->{'type'}.'</'.$tag.'>';
+    return "\n<".$tag.$display.'>'.$token->[2]->{'type'}.':'.
+               $token->[2]->{'default'}.'</'.$tag.'>';
 }
 }