[aisleriot] jamestown: Use hint-move instead of get-name.

[Vincent Povirk <vpovirk src gnome org>]

commit b261c50e06418371e194e936ad88fdf1a4d4c18b
Author: Vincent Povirk <madewokherd gmail com>
Date:   Mon May 28 16:22:13 2012 -0500

    jamestown: Use hint-move instead of get-name.
    
    For bug 551859.

 games/jamestown.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)
---
diff --git a/games/jamestown.scm b/games/jamestown.scm
index 7a4b92d..a732162 100644
--- a/games/jamestown.scm
+++ b/games/jamestown.scm
@@ -107,9 +107,7 @@
 	((and (not (empty-slot? slot2))
 	      (= (get-value (get-top-card slot1))
 		 (get-value (get-top-card slot2))))
-	 (list 1 
-	       (get-name (get-top-card slot1)) 
-	       (get-name (get-top-card slot2))))
+	 (hint-move slot1 1 slot2))
 	(#t (avail-pair? slot1 (+ 1 slot2)))))
 
 (define (get-hint)