diff --git a/prv/modules/imageboard.scm b/prv/modules/imageboard.scm
index 927066a..4bae1f1 100755
--- a/prv/modules/imageboard.scm
+++ b/prv/modules/imageboard.scm
@@ -595,11 +595,10 @@
"''>" (match:substring m) "")))
'post)) ; FIXME : add quotes around the href and target once you figure out how to escape chars properly
(lambda (p) ; Board link
- (regexp-substitute/global #f ">>>/*[^/]+/([^0-9]|$)" p
+ (regexp-substitute/global #f "(>>>/*([^ \\t\\r\\n/]+)/)([^0-9]|$)" p
'pre
(lambda (m)
- (let* ((brd (substring (match:substring m) 13 (- (string-length (match:substring m)) 1))))
- (format #f "~a" brd (match:substring m))))
+ (format #f "~a~a" (match:substring m 2) (match:substring m 1) (match:substring m 3)))
'post))
(lambda (p) ; Cross-page link matching
;(regexp-substitute/global #f ">>>[a-zA-Z0-9/,-\\#]*[a-zA-Z0-9]" p