diff --git a/collects/2htdp/image.rkt b/collects/2htdp/image.rkt
index f52e490070..dd427fba8c 100644
--- a/collects/2htdp/image.rkt
+++ b/collects/2htdp/image.rkt
@@ -115,9 +115,9 @@ and they all have good sample contracts. (It is amazing what we can do with kids
          
          make-color
          make-pen
-         
-         save-image
-         )
+         pen?
+         step-count?
+         save-image)
 
 (provide bitmap)
 
diff --git a/collects/teachpack/2htdp/scribblings/image.scrbl b/collects/teachpack/2htdp/scribblings/image.scrbl
index 3b5f5faa4f..eefbe19630 100644
--- a/collects/teachpack/2htdp/scribblings/image.scrbl
+++ b/collects/teachpack/2htdp/scribblings/image.scrbl
@@ -968,6 +968,10 @@ The baseline of an image is the place where the bottoms any letters line up, not
   greater than or equal to @scheme[3].
 }
 
+@defproc[(step-count? [x any/c]) boolean?]{
+  Determines if @racket[x] is an integer greater than or equal to @racket[1].                                           
+}
+
 @defstruct[pen ([color image-color?]
                 [width (and/c real? (<=/c 0 255))]
                 [style pen-style?]