diff --git a/basis/math/bitwise/bitwise-docs.factor b/basis/math/bitwise/bitwise-docs.factor
index 039fe860fc..882ee6f642 100644
--- a/basis/math/bitwise/bitwise-docs.factor
+++ b/basis/math/bitwise/bitwise-docs.factor
@@ -51,24 +51,7 @@ HELP: bitroll
     { $example "USING: math.bitwise prettyprint ;" "0xffff0000 8 32 bitroll .h" "ff0000ff" }
 } ;
 
-HELP: bit-clear?
-{ $values
-     { "x" integer } { "n" integer }
-     { "?" "a boolean" }
-}
-{ $description "Returns " { $link t } " if the nth bit is set to zero." }
-{ $examples
-    { $example "USING: math.bitwise prettyprint ;"
-               "0xff 8 bit-clear? ."
-               "t"
-    }
-    { $example "USING: math.bitwise prettyprint ;"
-               "0xff 7 bit-clear? ."
-               "f"
-    }
-} ;
-
-{ bit? bit-clear? set-bit clear-bit } related-words
+{ bit? set-bit clear-bit } related-words
 
 HELP: bit-count
 { $values
@@ -441,10 +424,9 @@ $nl
     set-bit
     clear-bit
 }
-"Testing if bits are set or clear:"
+"Testing if bits are set:"
 { $subsections
     bit?
-    bit-clear?
 }
 "Extracting bits from an integer:"
 { $subsections
diff --git a/basis/math/bitwise/bitwise-tests.factor b/basis/math/bitwise/bitwise-tests.factor
index 8a738add4c..164106a966 100644
--- a/basis/math/bitwise/bitwise-tests.factor
+++ b/basis/math/bitwise/bitwise-tests.factor
@@ -75,9 +75,6 @@ SPECIALIZED-ARRAY: uint-4
 [ 6 ] [ 5 next-even ] unit-test
 [ 8 ] [ 6 next-even ] unit-test
 
-[ f ] [ 0x1 0 bit-clear? ] unit-test
-[ t ] [ 0x0 1 bit-clear? ] unit-test
-
 [ -1 bit-count ] [ non-negative-integer-expected? ] must-fail-with
 [ -1 bit-length ] [ non-negative-integer-expected? ] must-fail-with
 
diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index b5d778c8bf..b07e285c50 100644
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -10,7 +10,6 @@ IN: math.bitwise
 ! utilities
 : clear-bit ( x n -- y ) 2^ bitnot bitand ; inline
 : set-bit ( x n -- y ) 2^ bitor ; inline
-: bit-clear? ( x n -- ? ) 2^ bitand zero? ; inline
 : unmask ( x n -- ? ) bitnot bitand ; inline
 : unmask? ( x n -- ? ) unmask zero? not ; inline
 : mask ( x n -- ? ) bitand ; inline