updateRoot: aHtmlRoot

	|moo|
	super updateRoot: aHtmlRoot.
	moo := (WAHtmlElement named: 'link') notClosed; attributeAt: 'rel' put: 'stylesheet'; attributeAt: 'type' put: 'text/css'; attributeAt: 'href' put: '/some.css'.
	aHtmlRoot addHeadElement: moo.