                     ] when
                 ] if
             ] [
-                drop STACK push
+                2drop
+                STACK push
             ] if
         ] [
+            drop
             STACK delete-all
             STACK push
         ] if*


M: gemini-command-loop missing-command
    over string>number [ 1 - LINKS ?nth ] [ f ] if* [
        gemini-go 3drop
    ] [
        call-next-method
    ] if* ;

    HISTORY ?last gemini-go ;

: gemini-back ( -- )
    -1 stack-url [ gemini-get ] when* ;

: gemini-forward ( -- )
    1 stack-url [ gemini-get ] when* ;

: gemini-up ( -- )
    URL ?first [
