diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index f4331b3624..c9ec2c3889 100644
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -80,7 +80,7 @@ PRIVATE>
     type-str end-marker = [
         type-str { "(" ")" } member? [
             type-str parse-c-type :> type
-            scan :> name
+            scan "," ?tail drop :> name
             type name parse-pointers :> ( type' name' )
             type' types push name' names push
         ] unless