diff --git a/include/prototypes.h b/include/prototypes.h
index c71a5668..15490006 100644
--- a/include/prototypes.h
+++ b/include/prototypes.h
@@ -75,6 +75,7 @@ extern char *prsub(struct shpstr *);
 extern int check_trade(void);
 extern int ontradingblock(int, void *);
 extern void trdswitchown(int, void *, int);
+extern int do_look(short);
 extern int radar(short);
 extern void update_power(void);
 /* Commands */
diff --git a/src/lib/commands/look.c b/src/lib/commands/look.c
index 6850a9a5..6fae7684 100644
--- a/src/lib/commands/look.c
+++ b/src/lib/commands/look.c
@@ -39,7 +39,6 @@
 #include "optlist.h"
 #include "path.h"
 
-static int do_look(short type);
 static void look_ship(struct shpstr *lookship);
 static void look_land(struct lndstr *lookland);
 
@@ -55,7 +54,7 @@ llook(void)
     return do_look(EF_LAND);
 }
 
-static int
+int
 do_look(short type)
 {
     int i;
diff --git a/src/lib/commands/navi.c b/src/lib/commands/navi.c
index 83ccfa91..af50ba0a 100644
--- a/src/lib/commands/navi.c
+++ b/src/lib/commands/navi.c
@@ -248,10 +248,7 @@ do_unit_move(struct emp_qelem *unit_list, int *together,
 	    player->btused++;
 	    continue;
 	case 'l':
-	    if (type == EF_SHIP)
-		look();
-	    else
-		llook();
+	    do_look(type);
 	    player->btused++;
 	    continue;
 	case 's':