diff --git a/collects/htdch/colors/info.ss b/collects/htdch/colors/info.ss
index acdf9ed51b..9cea8a9e2f 100644
--- a/collects/htdch/colors/info.ss
+++ b/collects/htdch/colors/info.ss
@@ -1,5 +1,4 @@
 #lang setup/infotab
 
 (define assume-virtual-sources #t)
-(define install-collection "installer.ss")
-;; (define pre-install-collection "pre-installer.ss")
+#;(define install-collection "installer.ss")
diff --git a/collects/htdch/draw/info.ss b/collects/htdch/draw/info.ss
index acdf9ed51b..9cea8a9e2f 100644
--- a/collects/htdch/draw/info.ss
+++ b/collects/htdch/draw/info.ss
@@ -1,5 +1,4 @@
 #lang setup/infotab
 
 (define assume-virtual-sources #t)
-(define install-collection "installer.ss")
-;; (define pre-install-collection "pre-installer.ss")
+#;(define install-collection "installer.ss")
diff --git a/collects/htdch/geometry/info.ss b/collects/htdch/geometry/info.ss
index acdf9ed51b..9cea8a9e2f 100644
--- a/collects/htdch/geometry/info.ss
+++ b/collects/htdch/geometry/info.ss
@@ -1,5 +1,4 @@
 #lang setup/infotab
 
 (define assume-virtual-sources #t)
-(define install-collection "installer.ss")
-;; (define pre-install-collection "pre-installer.ss")
+#;(define install-collection "installer.ss")
diff --git a/collects/htdch/graphics/info.ss b/collects/htdch/graphics/info.ss
index 155aac5d13..9cea8a9e2f 100644
--- a/collects/htdch/graphics/info.ss
+++ b/collects/htdch/graphics/info.ss
@@ -1,4 +1,4 @@
 #lang setup/infotab
 
 (define assume-virtual-sources #t)
-(define install-collection "installer.ss")
+#;(define install-collection "installer.ss")
diff --git a/collects/htdch/info.ss b/collects/htdch/info.ss
index c78ad9474f..6fe073f5e6 100644
--- a/collects/htdch/info.ss
+++ b/collects/htdch/info.ss
@@ -3,3 +3,4 @@
 (define name "Java Teachpacks")
 
 (define compile-omit-paths '("Examples"))
+(define install-collection "installer.scm")
diff --git a/collects/htdch/installer.scm b/collects/htdch/installer.scm
new file mode 100644
index 0000000000..415917dca4
--- /dev/null
+++ b/collects/htdch/installer.scm
@@ -0,0 +1,17 @@
+(module installer mzscheme
+  (require (prefix geo: (lib "installer.ss" "htdch" "geometry"))
+           (prefix color: (lib "installer.ss" "htdch" "colors"))
+           (prefix draw: (lib "installer.ss" "htdch" "draw"))
+           (prefix idraw: (lib "installer.ss" "htdch" "idraw"))
+           (prefix graph: (lib "installer.ss" "htdch" "graphics"))
+           )
+  (provide installer)
+
+  (define (installer plthome)
+    (geo:installer plthome)
+    (color:installer plthome)
+    (draw:installer plthome)
+    (idraw:installer plthome)
+    (graph:installer plthome))
+
+  )
\ No newline at end of file