diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor
index 79e8027489..eeac9210c1 100644
--- a/basis/html/streams/streams-tests.factor
+++ b/basis/html/streams/streams-tests.factor
@@ -61,4 +61,12 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ;
[ H{ } [ ] with-nesting nl ] make-html-string
] unit-test
-[ ] [ [ { 1 2 3 } describe ] with-html-writer drop ] unit-test
\ No newline at end of file
+[ ] [ [ { 1 2 3 } describe ] with-html-writer drop ] unit-test
+
+[ "
" ] [
+ [
+ "text"
+ { { image "vocab:definitions/icons/class-word.tiff" } }
+ format
+ ] make-html-string
+] unit-test
diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor
index 0ddc09bf54..1b3086f665 100644
--- a/basis/html/streams/streams.factor
+++ b/basis/html/streams/streams.factor
@@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators destructors fry html io
io.backend io.pathnames io.styles kernel macros make math
-math.order math.parser namespaces sequences strings words xml
-xml.syntax ;
+math.order math.parser namespaces sequences strings words
+splitting xml xml.syntax ;
IN: html.streams
GENERIC: url-of ( object -- url )
@@ -88,12 +88,11 @@ MACRO: make-css ( pairs -- str )
: emit-html ( quot stream -- )
dip data>> push ; inline
-: image-resource-path ( path -- images-path )
- normalize-path current-directory get drop-prefix drop
- "/images" prepend ;
+: image-path ( path -- images-path )
+ "vocab:definitions/icons/" ?head [ "/icons/" prepend ] when ;
: img-tag ( xml style -- xml )
- image swap at [ nip image-resource-path simple-image ] when* ;
+ image swap at [ nip image-path simple-image ] when* ;
: format-html-span ( string style stream -- )
[
diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index 1c17e3214f..20c807dca4 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -38,6 +38,7 @@ M: result link-href href>> ;
help-webapp new-dispatcher
"" add-responder
over "search" add-responder
- swap "content" add-responder ;
+ swap "content" add-responder
+ "resource:basis/definitions/icons/" "icons" add-responder ;