diff --git a/elevator_move_base_pr2/sample/fetch-sandwich.l b/elevator_move_base_pr2/sample/fetch-sandwich.l
index ebd9bb62b7..8bb81440a8 100755
--- a/elevator_move_base_pr2/sample/fetch-sandwich.l
+++ b/elevator_move_base_pr2/sample/fetch-sandwich.l
@@ -66,7 +66,7 @@
 
 
 (defun init ()
-  (setq *pr2* (pr2))
+  (setq *pr2* (pr2 :pr1040))
   (setq *ri* (instance pr2-interface :init
                        :move-base-action-name "elevator_move_base"))
   (send *pr2* :reset-pose)