diff --git a/comms/seyon/patches/patch-SeParse_y b/comms/seyon/patches/patch-SeParse_y
new file mode 100644
index 00000000000..8b09d5e7037
--- /dev/null
+++ b/comms/seyon/patches/patch-SeParse_y
@@ -0,0 +1,38 @@
+$OpenBSD: patch-SeParse_y,v 1.1 2003/12/30 01:18:55 espie Exp $
+--- SeParse.y.orig	2003-12-30 02:12:58.000000000 +0100
++++ SeParse.y	2003-12-30 02:13:27.000000000 +0100
+@@ -81,20 +81,20 @@ main(int argc, char *argv[])
+ {
+   char long_line[1000];
+ 
+-  char input_str[] = "This(is, a, real, funky); script();
+-            Scripts(); Can(be); Multi(Line, \"Can't they?\");
+-            Commas(are, no, longer, optional, inside, arglists);
+-	    Scripts(); Can(); contain(\"tabs \\t and backspaces \\b\");
+-	    As(\"Well\\ as Quoted Strings\", and, '\"Quoted Strings inside
+-	    quoted strings\"');
+-	esc(can, appear, outside, strings, ^z, \\012\\015\\n);
+-	    But(parenthesis, should, match);
+-  We(\"have a funny way of specifying \\012 chars and even)\"); 
+-	backslashes( \" \\\\ \");
+-  new(\"in this version are ^m and ^A ctr-escapes, as in ^S^Q\");
+- The(next, line, will, give, a, syntax, error, because, it, has, two, adj, functions,
+-	without, a, separating, semicolon);
+- End() script()";
++  char input_str[] = "This(is, a, real, funky); script();\n"
++"            Scripts(); Can(be); Multi(Line, \"Can't they?\");\n"
++"            Commas(are, no, longer, optional, inside, arglists);\n"
++"	    Scripts(); Can(); contain(\"tabs \\t and backspaces \\b\");\n"
++"	    As(\"Well\\ as Quoted Strings\", and, '\"Quoted Strings inside\n"
++"	    quoted strings\"');\n"
++"	esc(can, appear, outside, strings, ^z, \\012\\015\\n);\n"
++"	    But(parenthesis, should, match);\n"
++"  We(\"have a funny way of specifying \\012 chars and even)\"); \n"
++"	backslashes( \" \\\\ \");\n"
++"  new(\"in this version are ^m and ^A ctr-escapes, as in ^S^Q\");\n"
++" The(next, line, will, give, a, syntax, error, because, it, has, two, adj, functions,\n"
++"	without, a, separating, semicolon);\n"
++" End() script()";
+ 
+   printf("------ String to parse: \n%s\n\n---- Parsing begins:\n", input_str);
+   strcpy(long_line, input_str);
diff --git a/comms/seyon/patches/patch-SeScan_c b/comms/seyon/patches/patch-SeScan_c
new file mode 100644
index 00000000000..3ec28b18321
--- /dev/null
+++ b/comms/seyon/patches/patch-SeScan_c
@@ -0,0 +1,16 @@
+$OpenBSD: patch-SeScan_c,v 1.1 2003/12/30 01:18:55 espie Exp $
+--- SeScan.c.orig	2003-12-30 02:08:16.000000000 +0100
++++ SeScan.c	2003-12-30 02:08:33.000000000 +0100
+@@ -275,9 +275,9 @@ GetFirstWord(line) 
+ #ifdef TEST
+ main()
+ {
+-  scSetInputBuf("Just to see if we'\\'re \\n\\033 able to distinguish' words and strings
+-\"Also 'quotes' inside strings\" and 'strs \"inside quotes\"'
+-Not to forget ^S and ^q control ^ chars");
++  scSetInputBuf("Just to see if we'\\'re \\n\\033 able to distinguish' words and strings\n"
++"\"Also 'quotes' inside strings\" and 'strs \"inside quotes\"'\n"
++"Not to forget ^S and ^q control ^ chars");
+ 
+   while (lGetWord() != 0);
+ }