diff --git a/bin/test_pike.pike b/bin/test_pike.pike
index 235b2f1b28164fbb2e26578e9904bd30318e57a3..20d27dc50c8f446cd89f90c7293f081579375ede 100755
--- a/bin/test_pike.pike
+++ b/bin/test_pike.pike
@@ -1,6 +1,6 @@
 #!/usr/local/bin/pike
 
-/* $Id: test_pike.pike,v 1.46 2000/04/05 20:33:16 grubba Exp $ */
+/* $Id: test_pike.pike,v 1.47 2000/04/15 05:03:41 hubbe Exp $ */
 
 import Stdio;
 
@@ -355,7 +355,16 @@ int main(int argc, array(string) argv)
 	  object o;
 	  mixed a,b;
 	
-	  if(check) _verify_internals();
+	  if(check)
+	  {
+	    if(check < 0)
+	    {
+	      if(!(e % -check)) 
+		_verify_internals();
+	    }else{
+	      _verify_internals();
+	    }
+	  }
 	  if(check>3) {
 	    gc();
 	    _verify_internals();