diff --git a/scheme-boot/boot_image.h b/scheme-boot/boot_image.h
index 2e79ff1..cb1821d 100644
--- a/scheme-boot/boot_image.h
+++ b/scheme-boot/boot_image.h
@@ -1041,7 +1041,7 @@ char boot_image[] = ""
 "\x72\x20\x6c\x61\x6d\x62\x64\x61\x2d\x76\x61\x72\x73\x20\x66\x69"
 "\x6c\x74\x65\x72\x20\x23\x2e\x70\x61\x69\x72\x3f\x0a\x20\x20\x6c"
 "\x61\x6d\x62\x64\x61\x5d\x29\x5d\x20\x23\x33\x3d\x5b\x23\x3a\x67"
-"\x37\x39\x34\x20\x28\x29\x5d\x29\x0a\x20\x20\x20\x20\x20\x20\x20"
+"\x37\x39\x31\x20\x28\x29\x5d\x29\x0a\x20\x20\x20\x20\x20\x20\x20"
 "\x20\x20\x20\x63\x6f\x6d\x70\x69\x6c\x65\x2d\x66\x6f\x72\x20\x23"
 "\x66\x6e\x28\x22\x3a\x30\x30\x30\x72\x35\x65\x30\x67\x34\x33\x31"
 "\x36\x58\x30\x65\x31\x7c\x7d\x5e\x67\x32\x33\x34\x32\x65\x31\x7c"
diff --git a/scheme-core/aliases.scm b/scheme-core/aliases.scm
index f129068..0f175d1 100644
--- a/scheme-core/aliases.scm
+++ b/scheme-core/aliases.scm
@@ -139,11 +139,6 @@
   ; TODO
   1)
 
-(define get-datum read)
-(define (put-datum port x)
-  (with-bindings ((*print-readably* #t))
-                 (write x port)))
-
 (define (put-u8 port o) (io.write port (uint8 o)))
 (define (put-string port s (start 0) (count #f))
   (let* ((start (string.inc s 0 start))