diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor
index 28fbe22e7b..984d440c05 100644
--- a/basis/logging/server/server.factor
+++ b/basis/logging/server/server.factor
@@ -43,12 +43,13 @@ SYMBOL: log-files
 : multiline-header. ( -- )
     "[" write multiline-header write "] " write ;
 
-: write-message ( msg word-name level -- )
-    [ harvest ] 2dip pick empty? [ 3drop ] [
+:: write-message ( msg word-name level -- )
+    msg harvest [
         timestamp-header.
-        [ write bl write ": " write print ] 2curry
-        [ multiline-header. ] swap interleave
-    ] if ;
+        [ multiline-header. ]
+        [ level write bl word-name write ": " write print ]
+        interleave
+    ] unless-empty ;
 
 : (log-message) ( msg -- )
     #! msg: { msg word-name level service }