diff --git a/collects/htdch/draw/doc.txt b/collects/htdch/draw/doc.txt
index 50ef90a986..0207d0e6ce 100644
--- a/collects/htdch/draw/doc.txt
+++ b/collects/htdch/draw/doc.txt
@@ -1,50 +1,2 @@
-This `draw' package provides libraries for modeling in a visual world:
-
- +-----------------------------------+
- | abstract World                    |
- +-----------------------------------+       +---------------------------------------+
- | Canvas theCanvas                  |------>| Canvas                                |
- +-----------------------------------+       +---------------------------------------+
- | boolean bigBang(int,int,double)   |       +---------------------------------------+
- | boolean endOfTime()               |       | boolean start(int,int)                |
- | boolean endOfWorld()              |       | boolean stop()                        |
- | World lastWorld()                 |       | boolean drawCircle(Posn,int,Color)    |
- |                                   |       | boolean drawDisk(Posn,int,Color)      |
- | abstract World onTick()           |       | boolean drawRect(Posn,int,int,Color)  |
- | abstract World onKeyEvent(String) |       | boolean drawLine(Posn,Posn,Color)     |
- | abstract boolean draw()           |       | boolean drawString(Posn,String)       |
- | abstract boolean erase(           |       | boolean clearCircle(Posn,int,Color)   |
- +-----------------------------------+       | boolean clearDisk(Posn,int,Color)     |
-                                             | boolean clearRect(Posn,int,int,Color) |
-                                             | boolean clearLine(Posn,Posn,Color)    |
-                                             +---------------------------------------+
-
- - class Posn 
-
-		      +----------+
-		      | Posn     |
-		      +----------+
-		      | int x    |
-		      | int y    |
-		      +----------+
-
- - Color with five subclasses: 
-   + Blue 
-   + Green 
-   + Red 
-   + White 
-   + Yellow 
-
-                              +-------+
-                              | Color |
-                              +-------+
-                                  |
-                                 / \
-                                 ---
-                                  |
-             ------------------------------------------
-             |          |         |         |         |     
-         +-------+  +-------+ +-------+ +-------+ +-------+  
-         | Blue  |  | Green | | Red   | | White | | Yellow| 
-         +-------+  +-------+ +-------+ +-------+ +-------+ 
-
+For the documentation of this package, see Help Desk. The source is located
+at plt/teachpacks/htdc/Docs. 
diff --git a/collects/htdch/idraw/doc.txt b/collects/htdch/idraw/doc.txt
index 24eab3d81b..0207d0e6ce 100644
--- a/collects/htdch/idraw/doc.txt
+++ b/collects/htdch/idraw/doc.txt
@@ -1,50 +1,2 @@
-This `idraw' package provides libraries for modeling in a visual world:
-
-  +---------------------------------+     
-  | abstract World                  |
-  +---------------------------------+       +------------------------------------+
-  | Canvas theCanvas                |------>| Canvas                             |
-  +---------------------------------+       +------------------------------------+
-  | void bigBang(int,int,double)    |       +------------------------------------+
-  | void endOfTime()                |       | void start(int,int)                |
-  |                                 |       | void stop()                        |
-  | abstract void onTick()          |       | void drawCircle(Posn,int,Color)    |
-  | abstract void onKeyEvent(String)|       | void drawDisk(Posn,int,Color)      |
-  | abstract void draw()            |       | void drawRect(Posn,int,int,Color)  |
-  | abstract void erase()           |       | void drawLine(Posn,Posn,Color)     |
-  +---------------------------------+       | void drawString(Posn,String)       |
-					    | void clearCircle(Posn,int,Color)   |
-					    | void clearDisk(Posn,int,Color)     |
-					    | void clearRect(Posn,int,int,Color) |
-					    | void clearLine(Posn,Posn,Color)    |
-					    +------------------------------------+
-
- - class Posn 
-
-		      +----------+
-		      | Posn     |
-		      +----------+
-		      | int x    |
-		      | int y    |
-		      +----------+
-
- - Color with five subclasses: 
-   + Blue 
-   + Green 
-   + Red 
-   + White 
-   + Yellow 
-
-                              +-------+
-                              | Color |
-                              +-------+
-                                  |
-                                 / \
-                                 ---
-                                  |
-             ------------------------------------------
-             |          |         |         |         |     
-         +-------+  +-------+ +-------+ +-------+ +-------+  
-         | Blue  |  | Green | | Red   | | White | | Yellow| 
-         +-------+  +-------+ +-------+ +-------+ +-------+ 
-
+For the documentation of this package, see Help Desk. The source is located
+at plt/teachpacks/htdc/Docs.