diff --git a/concepts/equality/introduction.md b/concepts/equality/introduction.md
index b7c984e3..c55f4e52 100644
--- a/concepts/equality/introduction.md
+++ b/concepts/equality/introduction.md
@@ -29,12 +29,12 @@ A quick set of definitions (leaving out a few details) are as follows:
 (eql #\a #\A) ; => NIL
 ```
 
-- `equal`: defines equality as meaning: two lists are `equal` if each element is also `equal`; two arrays are `equal` if each element is `eq`; two strings are `equal` if each element is `eql`; everything else is `equal` if they are `eql`.
+- `equal`: defines equality as meaning: two lists are `equal` if each element is also `equal`; two strings are `equal` if each element is `eql`; two arrays are `equal` if they are `eq`; everything else is `equal` if they are `eql`.
   _e.g._:
 
 ```lisp
 (equal (list 1 2) (list 1 2)) ; => T
-(equal #(1 2) #(1 2))         ; => T
+(equal #(1 2) #(1 2))         ; => NIL
 (equal "foo" "foo")           ; => T
 ```
 
diff --git a/exercises/concept/key-comparison/.docs/introduction.md b/exercises/concept/key-comparison/.docs/introduction.md
index efd8da17..ec05d34b 100644
--- a/exercises/concept/key-comparison/.docs/introduction.md
+++ b/exercises/concept/key-comparison/.docs/introduction.md
@@ -31,12 +31,12 @@ A quick set of definitions (leaving out a few details) are as follows:
 (eql #\a #\A) ; => NIL
 ```
 
-- `equal`: defines equality as meaning: two lists are `equal` if each element is also `equal`; two arrays are `equal` if each element is `eq`; two strings are `equal` if each element is `eql`; everything else is `equal` if they are `eql`.
+- `equal`: defines equality as meaning: two lists are `equal` if each element is also `equal`; two strings are `equal` if each element is `eql`; two arrays are `equal` if they are `eq`; everything else is `equal` if they are `eql`.
   _e.g._:
 
 ```lisp
 (equal (list 1 2) (list 1 2)) ; => T
-(equal #(1 2) #(1 2))         ; => T
+(equal #(1 2) #(1 2))         ; => NIL
 (equal "foo" "foo")           ; => T
 ```