diff --git a/extra/unix/system-call/system-call.factor b/extra/unix/system-call/system-call.factor
index f1a6f8811e..bfcb9ae6ea 100644
--- a/extra/unix/system-call/system-call.factor
+++ b/extra/unix/system-call/system-call.factor
@@ -7,9 +7,9 @@ IN: unix.system-call
 ERROR: unix-system-call-error word args message ;
 
 MACRO: unix-system-call ( quot -- )
-  [ ] [ infer in>> ] [ first ] tri
- '[
-    [ @ dup 0 < [ dup throw ] [ ] if ]
-    [ drop , narray , swap err_no strerror unix-system-call-error ]
-    recover
-  ] ;
+    [ ] [ infer in>> ] [ first ] tri
+   '[
+        [ @ dup 0 < [ dup throw ] [ ] if ]
+        [ drop , narray , swap err_no strerror unix-system-call-error ]
+        recover
+    ] ;
diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor
index 96c5c7bf66..e00a2e068a 100755
--- a/extra/unix/unix.factor
+++ b/extra/unix/unix.factor
@@ -29,7 +29,6 @@ TYPEDEF: ulong size_t
 
 ! ! ! Unix functions
 LIBRARY: factor
-! FUNCTION: int err_no ( ) ;
 FUNCTION: void clear_err_no ( ) ;
 
 LIBRARY: libc
@@ -78,7 +77,6 @@ FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_
 FUNCTION: int munmap ( void* addr, size_t len ) ;
 FUNCTION: uint ntohl ( uint n ) ;
 FUNCTION: ushort ntohs ( ushort n ) ;
-! FUNCTION: char* strerror ( int errno ) ;
 
 : open ( path flags prot -- int ) [ unix.ffi:open ] unix-system-call ;