diff --git a/euscollada/test/euscollada-pr2-test.l b/euscollada/test/euscollada-pr2-test.l
index 9a80d13f9..20f061594 100644
--- a/euscollada/test/euscollada-pr2-test.l
+++ b/euscollada/test/euscollada-pr2-test.l
@@ -34,16 +34,17 @@
 ;;     (send-all (send *pr2* :links) :draw-on :flush t))
 ;;   )
 
-(deftest pr2-weight-test
-  (if (not (boundp '*pr2*)) (pr2))
-  (let* ((strm (piped-fork "echo $(grep \"<mass\" `rospack find pr2_mechanism_model`/pr2.urdf | cut -d\\\" -f2)"))
-	 (urdf-weight (reduce #'+ (read-from-string (format nil "(~A )" (read-line strm nil nil)))))
-	 (euslisp-weight (* 1e-3 (send *pr2* :weight)))) ;; [g] -> [kg]
-    (close strm)
-    (assert (eps= urdf-weight euslisp-weight) (format nil "check weight urdf:~A euslisp:~A" urdf-weight euslisp-weight))))
+; (deftest pr2-weight-test
+;   (if (not (boundp '*pr2*)) (pr2))
+;   (let* ((strm (piped-fork "echo $(grep \"<mass\" `rospack find pr2_mechanism_model`/pr2.urdf | cut -d\\\" -f2)"))
+; 	 (urdf-weight (reduce #'+ (read-from-string (format nil "(~A )" (read-line strm nil nil)))))
+; 	 (euslisp-weight (* 1e-3 (send *pr2* :weight)))) ;; [g] -> [kg]
+;     (close strm)
+;     (assert (eps= urdf-weight euslisp-weight) (format nil "check weight urdf:~A euslisp:~A" urdf-weight euslisp-weight))))
 
 (load "irteus/irtmodel.l")
 (deftest pr2-eusmodel-validity-check
+  (if (not (boundp '*pr2*)) (pr2))
   (eusmodel-validity-check-one *pr2*))
 
 (run-all-tests)