diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt
index 2bafea6776..31c94ada08 100644
--- a/collects/2htdp/private/image-more.rkt
+++ b/collects/2htdp/private/image-more.rkt
@@ -1079,7 +1079,7 @@
 (define/chk (triangle/ass angle-a side-b side-c mode color)
   (define (triangle-vertices/ass A b c)
     (list (make-posn 0 0) (make-posn c 0) (polar->posn b A)))
-  (polygon (triangle-vertices/ass angle-a side-b side-c) mode color))
+  (polygon (triangle-vertices/ass (radians angle-a) side-b side-c) mode color))
 
 (define/chk (triangle/sas side-a angle-b side-c mode color)
   (define (triangle-vertices/sas a B c)
diff --git a/collects/2htdp/tests/test-image.rkt b/collects/2htdp/tests/test-image.rkt
index f31c26dc47..550175d995 100644
--- a/collects/2htdp/tests/test-image.rkt
+++ b/collects/2htdp/tests/test-image.rkt
@@ -1004,6 +1004,12 @@
       =>
       #t)
 
+(test (equal~? (triangle/ass 90 60 60 'solid 'red)
+               (triangle/sss (* 60 (sqrt 2)) 60 60 'solid 'red)
+               0.001)
+      =>
+      #t)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; square