1 files changed, 1 insertions, 1 deletions
diff --git a/dump.scm b/dump.scm
index 018933b..3fad0db 100755
--- a/dump.scm
+++ b/dump.scm
@@ -290,7 +290,7 @@ INNER JOIN InbredSet USING (InbredSetId)"))
 ;; One email ID in the Investigators table has spaces in it. This
 ;; function fixes that.
 (define (fix-email-id email)
-  (string-replace-substring email " " ""))
+  (string-delete #\space email))
 
 (define (investigator-email->id email)
   (string->identifier "investigator" (fix-email-id email)))