diff --git a/s48/hawk-dns-server/db.scm b/s48/hawk-dns-server/db.scm
index ce604a6..9dd0a85 100644
--- a/s48/hawk-dns-server/db.scm
+++ b/s48/hawk-dns-server/db.scm
@@ -42,7 +42,7 @@
 	  (set! *prime (getprime-rec *prime)))
 
 	(define (getprime-rec prime)
-	  (if (= 1 (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))))
+	  (if (= 0 (+ (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))))
 	    (getpreime-rec (+ prime 1))))
 	    
 	(define (integer->ascii 
diff --git a/s48/hawk-dns-server/db.scm~ b/s48/hawk-dns-server/db.scm~
index 1684004..ce604a6 100644
--- a/s48/hawk-dns-server/db.scm~
+++ b/s48/hawk-dns-server/db.scm~
@@ -42,7 +42,7 @@
 	  (set! *prime (getprime-rec *prime)))
 
 	(define (getprime-rec prime)
-	  (if (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10)))
+	  (if (= 1 (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))))
 	    (getpreime-rec (+ prime 1))))
 	    
 	(define (integer->ascii