diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index 7a8ae019..9b85c48a 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -495,6 +495,7 @@ Markdown:
   - .ron
 
 Matlab:
+  type: programming
   extensions:
   - .m
   - .matlab
diff --git a/lib/linguist/mimes.yml b/lib/linguist/mimes.yml
index 14874cad..2f726f36 100644
--- a/lib/linguist/mimes.yml
+++ b/lib/linguist/mimes.yml
@@ -55,3 +55,4 @@ text/plain @cu,cxx
 text/x-nimrod @nim
 text/x-ocaml @ml,mli,mll,mly,sig,sml
 text/x-nemerle @n
+text/x-scheme @rkt,scm,sls,sps,ss
diff --git a/test/test_blob.rb b/test/test_blob.rb
index d86c3129..8189ddfa 100644
--- a/test/test_blob.rb
+++ b/test/test_blob.rb
@@ -293,8 +293,11 @@ class TestBlob < Test::Unit::TestCase
     # https://github.com/googleapi/googleapi/blob/master/demos/gmail_demo/gmail.dpr
     assert_equal Language['Delphi'], blob("program.dpr").language
 
-    # https://github.com/philiplaureano/Nemerle.FizzBuzz/blame/master/FizzBuzz/FizzBuzzer.n
+    # https://github.com/philiplaureano/Nemerle.FizzBuzz/blob/master/FizzBuzz/FizzBuzzer.n
     assert_equal Language['Nemerle'], blob("hello.n").language
+
+        # https://github.com/dharmatech/agave/blob/master/demos/asteroids.sps
+    assert_equal Language['Scheme'], blob("asteroids.sps").language
   end
 
   def test_lexer
diff --git a/test/test_mime.rb b/test/test_mime.rb
index 2da31112..420f02c4 100644
--- a/test/test_mime.rb
+++ b/test/test_mime.rb
@@ -173,6 +173,7 @@ class TestMime < Test::Unit::TestCase
     assert Mime.text?('.sh')
     assert Mime.text?('.sig')
     assert Mime.text?('.sml')
+    assert Mime.text?('.sps')
     assert Mime.text?('.src')
     assert Mime.text?('.tcl')
     assert Mime.text?('.texi')