diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9d349557b45ce863eca52dea405db6a741e21cbe..2ef07fecdf865780d7c1582d6d39d9dda2d155d5 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -137,7 +137,7 @@ by /bin/sh in POSIX"
 ;;;; Slurping a stream, typically the output of another program
 (with-upgradability ()
   (defgeneric slurp-input-stream (processor input-stream &key &allow-other-keys))
-  
+
   #-(or gcl2.6 genera)
   (defmethod slurp-input-stream ((function function) input-stream &key &allow-other-keys)
     (funcall function input-stream))