diff --git a/collects/teachpack/htdc/colors.ss b/collects/teachpack/htdc/colors.ss
deleted file mode 100644
index 1b7fab4da2..0000000000
--- a/collects/teachpack/htdc/colors.ss
+++ /dev/null
@@ -1 +0,0 @@
-(printf "this is just a stand-in for the plt/collects/htdch/colors/ library\n")
diff --git a/collects/teachpack/htdc/draw.ss b/collects/teachpack/htdc/draw.ss
deleted file mode 100644
index 3348c5c875..0000000000
--- a/collects/teachpack/htdc/draw.ss
+++ /dev/null
@@ -1,14 +0,0 @@
-#lang scheme
-
-(define (err n)
-  (lambda x
-    (error n "is a stub; see docs for draw.*")))
-
-(define-syntax prov
-  (syntax-rules ()
-    [(prov name ...) (begin (provide name ...) (define name (err name)) ...)]))
-
-(prov bigBang endOfTime endOfWorld onTick onKeyEvent draw show close
-  drawCircle drawDisk drawRect drawLine drawString)
-
-(printf "this is just a stand-in for the plt/collects/htdch/draw/ library\n")
diff --git a/collects/teachpack/htdc/geometry.ss b/collects/teachpack/htdc/geometry.ss
deleted file mode 100644
index 9ee5040749..0000000000
--- a/collects/teachpack/htdc/geometry.ss
+++ /dev/null
@@ -1 +0,0 @@
-(printf "this is just a stand-in for the plt/collects/htdch/geometry/ library\n")
diff --git a/collects/teachpack/htdc/idraw.ss b/collects/teachpack/htdc/idraw.ss
deleted file mode 100644
index 73e2ad7b68..0000000000
--- a/collects/teachpack/htdc/idraw.ss
+++ /dev/null
@@ -1 +0,0 @@
-(printf "this is just a stand-in for the plt/collects/htdch/idraw/ library\n")
diff --git a/collects/teachpack/htdc/info.ss b/collects/teachpack/htdc/info.ss
deleted file mode 100644
index a073420a94..0000000000
--- a/collects/teachpack/htdc/info.ss
+++ /dev/null
@@ -1,3 +0,0 @@
-#lang setup/infotab
-
-(define compile-omit-paths 'all)
diff --git a/collects/teachpack/htdc/scribblings/colors.scrbl b/collects/teachpack/htdc/scribblings/colors.scrbl
deleted file mode 100644
index 2000f72c18..0000000000
--- a/collects/teachpack/htdc/scribblings/colors.scrbl
+++ /dev/null
@@ -1,29 +0,0 @@
-#lang scribble/doc
-
-@(require scribble/manual)
-
-@title[#:tag "colors"]{Colors: colors.*}
-
-Add 
-@verbatim[#:indent 3]{
-  import colors.*
-}
-at the top of your Definitions Window to import this library. 
-
-This package provides classes for representing colors: 
-@verbatim[#:indent 3]{
-                              +--------+
-                              | IColor |
-                              +--------+
-                                  |
-                                 / \
-                                 ---
-                                  |
-             --------------------------------------------------
-             |          |         |         |         |       |
-         +-------+  +-------+ +-------+ +-------+ +-------+  +-------+ 
-         | Blue  |  | Green | | Red   | | White | | Yellow|  | Black | 
-         +-------+  +-------+ +-------+ +-------+ +-------+  +-------+ 
-}
-
-@deftech{IColor} is an interface. Its variants are created with no arguments. 
diff --git a/collects/teachpack/htdc/scribblings/draw.scrbl b/collects/teachpack/htdc/scribblings/draw.scrbl
deleted file mode 100644
index ac048d14d3..0000000000
--- a/collects/teachpack/htdc/scribblings/draw.scrbl
+++ /dev/null
@@ -1,175 +0,0 @@
-#lang scribble/doc
-
-@(require scribble/manual (for-label teachpack/htdc/draw))
-
-@title[#:tag "Jdraw"]{Draw: draw.*}
-
-@declare-exporting[teachpack/htdc/draw]
-
-Add 
-@verbatim[#:indent 3]{
-  import draw.*
-}
-at the top of your Definitions Window to import this library. 
-
-This package provides classes and methods for a visual
-world. Here is its class diagram of public fields and methods: 
-@verbatim[#:indent 3]{
-import colors.*;
-import geometry.*;
-
- +-----------------------------------+
- | abstract World                    |
- +-----------------------------------+       
- | Canvas theCanvas                  |----+
- +-----------------------------------+    |
- | boolean bigBang(int,int,double)   |    |  
- | boolean endOfTime(String)         |    |  
- | World endOfWorld(String)          |    |  
- |                                   |    |  
- |                                   |    |  
- | abstract World onTick()           |    |  
- | abstract World onKeyEvent(String) |    |  
- | abstract boolean draw()           |    |  
- +-----------------------------------+    |  
- 					  |
-					  v
-    +---------------------------------------+
-    | Canvas                                |
-    +---------------------------------------+
-    +---------------------------------------+
-    | boolean show()                        |
-    | boolean close()                       |
-    | boolean drawCircle(Posn,int,IColor)   |
-    | boolean drawDisk(Posn,int,IColor)     |
-    | boolean drawRect(Posn,int,int,IColor) |
-    | boolean drawLine(Posn,Posn,IColor)    |
-    | boolean drawString(Posn,String)       |
-    +---------------------------------------+}
-
-Methods in these classes may fail due to the unavailability of the physical
-devices, inappropriate uses, etc. In those cases, they fail with an
-exception.
-
-@section[#:tag "Jworld"]{World}
-
-The abstract @tt{World} class exports the following methods. 
-
-@; -----------------------------------------------------------------------------
-@defthing[bigBang (int width,int height,double speed)]
-
-Initializes the world, associates it with a @tt{width} x
-@tt{height} @seclink["canvas"]{@tt{Canvas}}, displays
-this canvas, enables keyevents, and finally starts the clock at a rate of
-one tick per @tt{speed} seconds. If it succeeds with all of its
-actions, the method produces @tt{true}.
-
-@bold{Note}: @tt{width}, @tt{height} and 
-@tt{speed} must be a positive. 
-
-@; -----------------------------------------------------------------------------
-The canvas in @tt{World} is called
-
-  @tt{theCanvas}. 
-
- References to a "canvas" in conjunction with the @tt{World} class
- denote this default canvas. 
-
-@; -----------------------------------------------------------------------------
-@defthing[endOfTime ()]
-
-Displays the given message, stops the clock and, if it succeeds, produces
-@tt{true}. After the end of time, events no longer trigger calls
-to @tt{onTick} or @tt{onKeyEvent}. The canvas remains visible. 
-
-@; -----------------------------------------------------------------------------
-@defthing[endOfWorld (String msg)]
-
-Displays the given message, stops the clock and, if it succeeds, produces the 
-last @tt{World}. After the end of the world,  events no longer trigger calls
-to @tt{onTick} or @tt{onKeyEvent} (see below). The canvas
-remains visible. 
-
-@; -----------------------------------------------------------------------------
-A derived concrete class must supply definitions for the following methods: 
-
-@; -----------------------------------------------------------------------------
-@defthing[onTick ()]
-
-Invoked for every tick of the clock. Its purpose is to create a
-@tt{World} whose differences with @tt{this} one represent
-what happened during the amount of time it takes the clock to tick.  
-
-@; -----------------------------------------------------------------------------
-@defthing[onKeyEvent (String key)]
-
-Invoked for every keyboard event associated with the canvas. Its purposes
-  is to create a @tt{World} whose differences with
-  @tt{this} one represent what happens due to the user's use of the
-  keyboard. The latter is represented with the string-valued argument
-  @tt{key}. 
-
-@; -----------------------------------------------------------------------------
-@defthing[draw ()]
-
-Invoked @emph{after} one of the two event handlers has been called. Its
-purpose is to present @tt{this World} graphically on its
-canvas. If it succeeds, its result is @tt{true}.
-
-A program may, in principle, start several instances of (subclasses of)
-@tt{World}. If it does, the event handlers are called in a unpredictable
-order. 
-
-@; -----------------------------------------------------------------------------
-@section[#:tag "canvas"]{Canvas}
-
-To create an instance of the @tt{Canvas} class, a program must supply
-two @tt{int} values: one for the width of the canvas and one for its
-height. The canvas is a rectangle, whose borders are parallel to the computer
-screen's borders. A program can use the following methods on instances of
-@tt{Canvas}]
-
-@defthing[show ()] 
-
-Initializes the canvas to a white area, enables the drawing methods, and
-  finally displays the canvas. If it succeeds, it produces
-  @tt{true}. Invoking the method a second time without calling
-  @tt{close} before has no effect.
-
-@defthing[close ()]
-
-Hides the canvas and erases the current content.  If it succeeds, it
-produces @tt{true}.
-
-Closing the Canvas using the display controls does not fully hide the
-canvas; it is still necessary to invoke @tt{close} before
-@tt{show} is re-enabled.
-
-@defthing[drawCircle (Posn p,int r,IColor c)]
-
-Draws a circle on @tt{this}Canvas] at @tt{p} with radius
-@tt{r} and color @tt{c}.  If it succeeds, it produces
-@tt{true}.
-
-@defthing[drawDisk (Posn p,int r,IColor c)]
-
-Draws a disk on @tt{this}Canvas] at @tt{p} with radius
-@tt{r} and color @tt{c}.  If it succeeds, it produces
-@tt{true}.
-
-@defthing[drawRect (Posn p,int w,int h,IColor c)]
-
-Draws a solid rectangle on @tt{this}Canvas] at @tt{p} with
-width @tt{w}, height @tt{h}, and color @tt{c}.  The
-rectangle's lines are parallel to the canvas's borders. If it succeeds, it
-produces @tt{true}.
-
-@defthing[drawLine (Posn p0,Posn p1,IColor c)]
-
-Draws a line on @tt{this}Canvas] from @tt{p0} to
-@tt{p1} using color @tt{c}.  If it succeeds, it produces
-@tt{true}.
-
-@defthing[drawString (Posn p,String s)]
-
-Draws the string @tt{s} at @tt{p} on @tt{this}Canvas].  If it succeeds, it produces @tt{true}.
diff --git a/collects/teachpack/htdc/scribblings/geometry.scrbl b/collects/teachpack/htdc/scribblings/geometry.scrbl
deleted file mode 100644
index 97e82a52eb..0000000000
--- a/collects/teachpack/htdc/scribblings/geometry.scrbl
+++ /dev/null
@@ -1,24 +0,0 @@
-#lang scribble/doc
-
-@(require scribble/manual)
-
-@title[#:tag "geometry"]{Geometry: geometry.*}
-
-Add 
-@verbatim[#:indent 3]{
-  import geometry.*
-}
-at the top of your Definitions Window to import this library. 
-
-This package provides a class for representing positions in a Cartesian world:
-@verbatim[#:indent 3]{
-                      +----------+
-                      | Posn     |
-                      +----------+
-                      | int x    |
-                      | int y    |
-                      +----------+
-}
-
-@deftech{Posn} is a class with two fields, one per coordinate. The
-constructor consumes two integers. 
diff --git a/collects/teachpack/htdc/scribblings/htdc.scrbl b/collects/teachpack/htdc/scribblings/htdc.scrbl
deleted file mode 100644
index 0225156da5..0000000000
--- a/collects/teachpack/htdc/scribblings/htdc.scrbl
+++ /dev/null
@@ -1,14 +0,0 @@
-#lang scribble/doc
-
-@(require scribble/manual
-          (for-label scheme))
-
-@title[#:style '(toc) #:tag "htdc"]{HtDC Teachpacks}
-
-@local-table-of-contents[]
-
-@include-section["geometry.scrbl"] @;"A Geometry Library (HtDC)"
-@include-section["colors.scrbl"] @;"A Colors Library (HtDC)"
-
-@include-section["draw.scrbl"] @;"A Functional Drawing Library (HtDC)"
-@include-section["idraw.scrbl"] @;"An Imperative Drawing Library (HtDC)"
diff --git a/collects/teachpack/htdc/scribblings/idraw.scrbl b/collects/teachpack/htdc/scribblings/idraw.scrbl
deleted file mode 100644
index 882117bb10..0000000000
--- a/collects/teachpack/htdc/scribblings/idraw.scrbl
+++ /dev/null
@@ -1,56 +0,0 @@
-#lang scribble/doc
-
-@(require scribble/manual (for-label teachpack/htdc/draw))
-
-@title[#:tag "iJdraw"]{Draw: idraw.*}
-
-Add 
-@verbatim[#:indent 3]{
-  import idraw.*
-}
-at the top of your Definitions Window to import this library. 
-
-
-This package provides stateful classes and imperative methods for a visual
-world. Here is its class diagram of public fields and methods:
-@verbatim[#:indent 3]{
-import colors.*; 
-import geometry.*; 
-
-  +---------------------------------+     
-  | abstract World                  |
-  +---------------------------------+       
-  | Canvas theCanvas                |---+
-  +---------------------------------+   |   
-  | void bigBang(int,int,double)    |   |   
-  | World endOfTime(String)         |   |   
-  | World endOfWorld(String)        |   |   
-  | abstract void onTick()          |   |   
-  | abstract void onKeyEvent(String)|   |   
-  | abstract void draw()            |   |   
-  +---------------------------------+   |   
-                                        |   
-					v
-          +------------------------------------+
-	  | Canvas                             |
-	  +------------------------------------+
-	  +------------------------------------+
-	  | void show()                        |
-	  | void close()                       |
-	  | void drawCircle(Posn,int,IColor)   |
-	  | void drawDisk(Posn,int,IColor)     |
-	  | void drawRect(Posn,int,int,IColor) |
-	  | void drawLine(Posn,Posn,IColor)    |
-	  | void drawString(Posn,String)       |
-	  +------------------------------------+
-}
-
-The abstract @tt{World} class in @tt{idraw} provides the same methods as
-the @tt{World} class in @secref["Jworld"] (@tt{draw} package). Their return
-values are usually @tt{void}, however, except for @tt{endOfTime} and
-@tt{endOfWorld}, which continue to return the last world.
-
-In an analogous manner, the methods in the @tt{Canvas} class export
-the same methods as the @tt{Canvas} class in @secref["canvas"]
-(@tt{draw} package). Again their return values are @tt{void}. 
-