1 files changed, 9 insertions, 7 deletions
diff --git a/bin/cl b/bin/cl
index 1b9a659..2135f5c 100755
--- a/bin/cl
+++ b/bin/cl
@@ -198,7 +198,7 @@ else
 		          :print NIL)
 		    (uiop:quit 0))
 		  (error (e)
-		    (format *error-output* "~&~%ERROR: ~a" e)
+		    (format *error-output* "~&~%error: ~a~%" e)
 		    (uiop:quit 1)))
 	EOF
 fi
@@ -263,17 +263,19 @@ case "$IMPL" in
 		exit 4
 		;;
 	sbcl)
-		ARGS="--disable-debugger --script $MAIN"
-		if [ "$VERBOSE" = false ]; then
-			ARGS="$ARGS --noinform"
+		ARGS="--load $MAIN"
+		if [ -n "$IMAGE" ]; then
+			set -- --core "$IMAGE"
 		fi
 		if [ "$NO_RC" = true ]; then
 			ARGS="$ARGS --no-sysinit --no-userinit"
 		fi
-		if [ -n "$IMAGE" ]; then
-			set -- --core "$IMAGE"
+		if [ "$VERBOSE" = false ]; then
+			ARGS="--noinform $ARGS"
+		else
+			set -x
 		fi
-		exec sbcl $ARGS "$@"
+		exec sbcl "$@" $ARGS
 		;;
 	*)
 		printf 'Unsupported implementation: "%s".\n\n' "$IMPL" >&2